home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ ATI128 2.xpl < prev    next >
Text File  |  2001-05-16  |  4KB  |  138 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Hardware\Video Cards\ATI 128"
  5. "NAME"="Mode Settings"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Direct3D support"
  9. "TEXT 2"="Enable OpenGL support"
  10. "TEXT 3"="Enable Gamma Correction support"
  11. "TEXT 4"="Enable 256 gray scale support"
  12. "DESCRIPTION 1"="Some options for your ATI128 card."
  13. "DESCRIPTION 2"="Should you find Games/Applications appear too dark/bright, or are unresponsive to in-game gamma controls try enabling [Checked Box] Enable Gamma Correction Support."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  19.  
  20.  
  21. '-- ONLY CHANGE THE LINES WITHOUT ' at the beginning !!
  22. '
  23. '*** Xteq Systems "On/Off" Plug-in Template ***
  24. '*** ID_XQ_PT1 V1.00 
  25.  
  26.  ' how many settings are in this file (change "COUNT=" also!) 
  27.  CountSettings=4
  28.  
  29.  ' does this plug-in requires the user to logoff or to restart his PC?
  30.  bRequireLogoff=0
  31.  bRequireRestart=1
  32.  
  33.  ' if this path exists in the registry, the plug-in will be enabled. if it does
  34.  ' not exist, the plug-in will be disable set to ="" to ignore this check and alway
  35.  ' enable the plug-in, regardless if the path exists or not
  36.  sCheckPath="HKLM\Software\ATI Technologies\Driver\"
  37.  
  38.  
  39.  ' Settings for Value # 1
  40.  sV1_Path="HKEY_LOCAL_MACHINE\Software\ATI Technologies\Desktop\D3D" 
  41.  sV1_OnValue="1"      
  42.  sV1_OffValue="0"      
  43.  sV1_DataType="2"     
  44.  
  45.  ' Settings for Value # 2
  46.  sV2_Path="HKEY_LOCAL_MACHINE\Software\ATI Technologies\Desktop\OpenGL" 
  47.  sV2_OnValue="1"      
  48.  sV2_OffValue="0"      
  49.  sV2_DataType="2"     
  50.  
  51.  ' Settings for Value # 3
  52.  sV3_Path="HKEY_LOCAL_MACHINE\Software\ATI Technologies\CDS\0000\0\DAC\Gamma Correction Support" 
  53.  sV3_OnValue="Yes (0x00000001)"      
  54.  sV3_OffValue="No (0x00000000)"      
  55.  sV3_DataType="1"     
  56.  
  57.  ' Settings for Value # 4
  58.  sV4_Path="HKEY_LOCAL_MACHINE\Software\ATI Technologies\CDS\0000\0\DAC\256 Gray Scale Support" 
  59.  sV4_OnValue="Yes (0x00000001)"      
  60.  sV4_OffValue="No (0x00000000)"      
  61.  sV4_DataType="1"     
  62.  
  63.  
  64.  ' Settings for Value # 5
  65.  sV5_Path="HKCU\Software\Hypernix\Gooey\Network\AllwaysOntop" 
  66.  sV5_OnValue="1"      
  67.  sV5_OffValue="0"      
  68.  sV5_DataType="2"     
  69.  
  70. '*** Xteq Systems "On/Off" Plug-in Template ***
  71. '
  72. '-- STOP CHANGES HERE !!
  73.  
  74.  
  75.  
  76. Sub Plugin_Initialize 
  77.  If Len(sCheckPath)>0 then
  78.     if left(sCheckPath,1)<>"\" then sCheckPath=sCheckPath & "\"
  79.  
  80.     b=RegPathExists(sCheckPath)
  81.     if b=true then
  82.        Call ReadSettings
  83.     else
  84.        Call Disable
  85.     end if  
  86.  else
  87.     Call ReadSettings
  88.  end if
  89. End Sub
  90.  
  91. Sub ReadSettings
  92.                            Call ReadSettingsEx(1,sV1_Path,sV1_OnValue)
  93.   if CountSettings>=2 then Call ReadSettingsEx(2,sV2_Path,sV2_OnValue)
  94.   if CountSettings>=3 then Call ReadSettingsEx(3,sV3_Path,sV3_OnValue)
  95.   if CountSettings>=4 then Call ReadSettingsEx(4,sV4_Path,sV4_OnValue)
  96.   if CountSettings>=5 then Call ReadSettingsEx(5,sV5_Path,sV5_OnValue)
  97. End Sub
  98.  
  99. Sub ReadSettingsEx(ID,REGP,VALON)
  100.  s=RegReadValue(REGP)
  101.  'Call DebugMsg("VAL:" & s & " ID:" & ID & " VAL_ON:" & VALON)
  102.  if CStr(s)=VALON then
  103.     Call SetUIElement(ID,true)
  104.  End if 
  105. End Sub
  106.  
  107.  
  108. Sub Plugin_CheckData(ElementIndex)
  109. End Sub
  110.  
  111.  
  112. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  113.                           Call WriteSettings(GetUIElement(1),sV1_Path,sV1_OnValue,sV1_OffValue,sV1_DataType)
  114.  if CountSettings>=2 then Call WriteSettings(GetUIElement(2),sV2_Path,sV2_OnValue,sV2_OffValue,sV2_DataType)
  115.  if CountSettings>=3 then Call WriteSettings(GetUIElement(3),sV3_Path,sV3_OnValue,sV3_OffValue,sV3_DataType)
  116.  if CountSettings>=4 then Call WriteSettings(GetUIElement(4),sV4_Path,sV4_OnValue,sV4_OffValue,sV4_DataType)
  117.  if CountSettings>=5 then Call WriteSettings(GetUIElement(5),sV5_Path,sV5_OnValue,sV5_OffValue,sV5_DataType)
  118.  
  119.  
  120.  if bRequireLogoff then Logoff()
  121.  if bRequireRestart then Restart()
  122. End Sub
  123.  
  124. Sub WriteSettings(CUR_VAL,REGP,ON_VAL,OFF_VAL,DAT_TYPE)
  125.   if CUR_VAL=true then
  126.      Call RegWriteValue(REGP,ON_VAL,DAT_TYPE)
  127.   else
  128.      Call RegWriteValue(REGP,OFF_VAL,DAT_TYPE)
  129.   end if
  130. End Sub
  131.  
  132.  
  133. Sub Plugin_Terminate 
  134. End Sub
  135.  
  136.  
  137.  
  138.